Module TestuAPI

    Sub Main()
        Call namenAllerUmgebungsvariablen()
        Call wertEinerUmgebungsvariablen()
    End Sub

    Sub namenAllerUmgebungsvariablen()
        Dim env As uAPI.uapi.Environment
        Dim names() As String
        env = New uAPI.uapi.Environment
        names = env.getNames()
        For Each name As String In names
            Console.WriteLine(name)
        Next
        env = Nothing
    End Sub

    Sub wertEinerUmgebungsvariablen()
        Dim env As uAPI.uapi.Environment
        env = New uAPI.uapi.Environment()
        Console.WriteLine(env.getValue("temp"))
        env = Nothing
    End Sub
End Module
